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ag * Convert text logical) to Lomgword — TESEECHIES PREIS HMQNTE.SRESBr¥OVTAC mansn 28° cy 
' “TiTLe OTsseyTTue = Convert ~_ {tog gical) to lon pravere 
- 1OEN Le: OTSCVTTLL.MAR Edit: $8L1003 
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COPYRIGHT cs) 1376, 1980, 1982, 1984 BY 

thee ty feu) PMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ALL RIGHTS RESERVED. 

THIS SOFTWARE IS FURNISHED eres p ay CENSE AND MAY BE USED AND COPIED 

put N a i et WITH rmigut F SUCH ob Cease AND WITH THE 

NCLUSION OF THE ABOV or GHT NO NOTICE, THIS SOFTWARE OR ANY OTHER 
NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 

OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOF TUARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORAT ioe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS . 


IBILITY FOR THE USE OR 7? ortmeail OF ITS 
SOFTWARE ON EQUIPMENT WHICH 


L 
S NOT SUPPLIED BY DIGITAL 
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++ 
FACILITY: Language independent support Library 


ABSTRACT: 


A routine to convert a text string indicating ‘true’ or ‘‘false’’ to 
a integer representation. 


ENVIRONMENT: User Mode, AST Reentrant 


AUTHOR: Steven B. Lionel, CREATION DATE: 01-Mar-1979 
MODIFIED BY: 
Edit History 
1-08 - Ori {oat my tte your tse P+ FORSCNV_IN_L. = a gg 


- SBL ug where SP is used instead of AP. set goiul-79 
- Do correct thing if value "ales is wrong. SBL 25-Feb-1980 
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el DECLARATIONS © °#'C#t? FO Longword — TRTSE=19B6 1:45:49 ECTONTL.SRESOTSCVTILL.MAR; 1 


»SBTTL DECLARATIONS 
; INCLUDE FILES: 


tes 3) 


3 EXTERNAL DECLARATIONS: 


-DSABL GBL : Prevent undeclared 

; symbols from being 

3; automatically global. 
-EXTRN OTSS_INPCONERR ; Error code 


: MACROS: 


: EQUATED SYMBOLS: 


SODNAUE LO OONAULS UNO 


SIL P PA AA PAA PN LIVIN INIVION 


72 : OWN STORAGE: 

4g i 

7% 

75; 

6 3 PSECT DECLARATIONS: 

7 .PSECT _OTSSCODE PIC, USR, CON, REL, LCL, SHR, - 
7 EXE, RD, NOWRT. LONG 


OTSSEVTTLL 


orsscvt ft 


Boob000c 


00000008 


we mk at a ot od ot) = = 2 a dt ss 3 ts 


tnt fowl Atos eo ECRECISR ARES HMA. Snes ABR 
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geil -SBTTL OTSSCVT_TL_L = Convert text (logical) to longword 
; FUNCTIONAL DESCRIPTION: 


This routine cogverts a text string to a longword value 
using FORTRAN= type L format conversion. fhe format of 
the text accepted is as follows: 


< 0 or more blanks > 
< < end of string > 


or 
< < ''."’ or nothing > 
Letter: a i Fife need in > 
< 0 or more qf any character > 
< end of string > > > 
The value returned by OTSSCVT_TL_L is: 


ALL 1 bits (-1) if the character 
denoted ‘‘Letter'’ above is ‘'T’’ or ‘'t'’. 
Zero otherwise. 


NAME WI OOOO NAME UT 


If the input string does not conform to the above specification, 
value is set to zero (false), and the condition code 
OTSS_INPCONERR is returned. 


Note: ANSI X3.9-1978 FORTRAN-77 does not allow for the input 
field to be all blank, but since VAX-11 FORTRAN IV-PLUS did 
allow it, (returning .FALSE.), it is allowed here too. 


Note: With this implementation, the strings **, TRUE."* and 
**,FALSE."’ are valid. In the previous version, they were not. 


Note: For compas test Sty with previous releases, the global 
symbol FORSCNV_IN_L may be used to call OTSSCVf_TL_L. 
CALLING SEQUENCE: 


status.wlc.v = OTSSCVT_TL_L (input_string.rt.ds, value.wl.r 
C, value_size.ri.vi) 


INPUT PARAMETERS: 


input_strin = 4 ; Input text string by descriptor 
veluess ze ° = 12 ; Size of value in-bytes. If not 
; specified, 4 is assumed. Valid 


1, 2 and 4. If invalid, 
; an error is returned. 
; If size is greater than 4, 4 is assumed. 
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: IMPLICIT INPUTS: 
; NONE 
: OUTPUT PARAMETERS: 


WA MAMA AAA INIINININIUNIIY SS I SS AS OSOSOSOSCSOOS OS 


BNA AE WI 9 OOD NAVE WIN O OOO NA NE WIS ODNAUS WP 


value = 8 3; Output value by reference 


ro 


to 


oT gagyT tut 


o 
—_ 
$s - wu OM 
oo fF & 
—0o— 09 Co "Coun =" WNONWNID ui 


AYMAN OH POSMLOON 


50 00000000'8F 
0D 

3 
5 


50 1 
0 


MO 0-0 09 $9  O-WwNND S 
Pere er Lee Serb Sere i SP, | of 


f 


IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 


SS$_NORMAL 
OTSS_INPCONERR 


; SIDE EFFECTS: 
NONE 


TE Sete eee 
4 
6 


ORSCNV_IN_L:: 
.ENTRY OTSSCVT_TL_L, “M< 


2 
i us sering( At). RO 
/, RO, (R1) 

o/, (RI) 


10$: CMPB 


+ 


ERROR: MOVL  #OTSS$_INPCONERR, RO 
BRB EXIT 


s+ 
; Text string represents .TRUE. 
RUE: MNEGL #1, Re 

1,_R 


MOVL # 
BRB Exit 


—t 


3¢ 

3 igxt string represents .FALSE. 
3; R2 is already cleared. 

FALSE: MOVL #1, RO 
BRB EXx{t 


eB et a a od od td tt tt 
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- Successful completion 
- Input conversion error 


; For spans eevee 


In 
Get descriptor 
Skip blanks 

ALL blank, .FALSE. 

. period? 

() 

Yes, decrement character count 


; Last character, error 
; Skip over 


eriod 
Test for .TRUE. 


Test for .FALSE. 


; Invalid character, return error OTS$_INPCONERR 


; Error status code 
; Return with value .FALSE. 


Value is .TRUE. 
SS$_NORMAL 
Exit 


SS$_NORMAL 
Exif 


gtgggyTttt OTSSCVE TLit s Convert cent Lengyerd: co SoSEE= 38S PREFSEL FOTANFS Saess YOU TOO anes P28 6h, 


4 1 
if } $ it Return to caller with status value. 
03 $e 91 & 1 3 bxit: CMPB (AP), #<value_size/4> ; Is size present? 
—E 19 oh BLSS 4 ; No, longwo 
06 OC 8 » 4 CMPL Lue_size(AP), #4 : Is it a longword? 
1 BGEQ 3; Yes, at least 
02 Oc aC p ; CHPL ue_size(AP), #2 ; Is it a word? 
01 OCA 01 5 CMPL value_size(AP), #1 3 Is: it a byt 
1 Cc $ BNEQ E : If not, i '§ on error 
08 BC MOVB R2, a@value(AP) ; Convert byte 
as 6 3 BRB 5 3; Exit 
08 BC 2 60 64 20S: MOVW R2, @value(AP) 3; Move a word 
4 11 68 1 BRB 5 3; Exit 
08 BC 2 00 6A 1 $08: MOVL R2, @value(AP) 3; Move a longword 
04 3 1 50$: RET 3; Return to caller 
O6F 14 
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ERROR 1 
EXIT 1 
433 1 
FORSCNV_IN_L 1 
pervs STRING = 
OTSSCUT TLL RG 1 
OTSS_INPCONERR eeeeeeee = § x 0 
TRUE DOODDOSA R 1 
VALUE = 00 AO00 08 
VALUE_SIZE = 0000000C 
$e wmonaemanonaonan >} 
! Psect synopsis ! 
Gane oe eae omnes o> 
PSECT name Allocatio PSECT No. Attributes 
OS s 00000000 ( 0.) 00¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
-OTSSCODE OOOOO0O6F ¢ 111.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
Fewer ceneem ome cna emo e mace + 
; Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 3 0:00:00.05 :00:02.1 
Command processing 135 0: 8: 0:91 09:00:0 on 
Pass 1 0:00:00.31 0:00:02.08 
Symbol table sort 0:00:00.00 0:00:00.00 
ass 2 5 0:00:00.29 0:00:00.89 
Symbol table output 0:00:00.01 0:00:00.01 
Psect synopsis output 0:00:00.01 Hf 0.01 
Cross-reference output 3: 8: 3°98 0:0 200-9 
Assembler run totals 274 :00:00.9 0:00:08.4 


The work ing set Limit was 750 pages. 

2694 bytes (6 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 10 non-local and 4 local symbols. 
14 source Lines were read in Pass 1, producing 11 object records in Pass 2. 
pages of virtual memory were used to define 0 macros. 


¢oeese ee ane eee cones ooceoseseant 


! Macro library statistics ; 


bees oees ees e ese ere cece e aoe ae 


Macro Library name Macros defined 
~$255$DUA28: (SYSLIBISTARLET.MLB:2 oY aR Te 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LISS$:OTSCVTTLL/OBJ=OBJ$:OTSCVTTLL MSRCS$:OTSCVTTLL/UPDATE=(ENHS:OTSCVTTLL) 
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